COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(changes)
C00005 00003	 For card changes
C00006 00004	(progn
C00007 ENDMK
C⊗;
(changes)
(progn (setq alist (reverse alist)) t)

(defun changes ()
 (do ((i 0 (1+ i))
      (a '() (push `(,i . 0) a)))
     ((= i 10.)
;     (break t t)
      (do ((al alist (cdr al)))
		    ((null al) a)
		    (do ((al (cdar al) (cddr al))
			 (en ()))
			((null al) ())
			(setq en (assoc (car al) a))
			(rplacd en (1+ (cdr en))))))))))))

(defun add (x)
       (push x alist))

(defun init ()
       (setq alist ())
       (do ((x (read) (read))) 
	   ((= (car x) 99.) (add x) t) (add x))
       (progn (setq sentences (read)) t)))

(defun value (n l)
       (let ((x (cdr (assoc n alist))))
	    (do ((l l (cdr l))
		 (word "" (or (cadr (member (car l) x)) word)))
		((null l) word))))

(setq order '(0 1 2 3))

(defun sent (s)
(terpri)
       (do ((s s (cdr s)) (n 5 (1- n)))
	   ((null s) (terpri))
	   (cond ((zerop n) (terpri)(setq n 5)))
	   (cond ((numberp (car s)) (princ (value (car s) order)))
		 (t (princ (car s))))))


(defun try (x) (sent (cadr (assoc x sentences))))


(setq order '(0 1 2 24))
(try 10)

(defun try-all ()
 (setq order '(0))
 (try '1a)(terpri)(try '1b)
 (do ((i 2 (1+ i))
      (a (list 0 1) (nconc a `(,i))))
     ((= i 11.) ())
     (terpri)
     (setq order a)
     (try i)))

(defun try-all1 ()
 (try '1a)(terpri)(try '1b)
 (do ((i 2 (1+ i)))
     ((= i 11.) ())
     (terpri)
     (try i)))

(try-all)
(setq order '(0))
(try 2)

(setq order '(0 8 3 7 2 ))
(try '6)

(defun appears()
(do ((i 1 (1+ i)))
    ((= i 100) t)
    (terpri)(princ i)(tyo 9)
    (do ((s sentences (cdr s)))
	((null s)())
	(cond ((member i (cadar s))
	       (tyo #o40)(princ (caar s)))))))))))

(setq order '(0 1 2 3 4 6 7 8 9))
(try-all1)
;; For card changes
(progn (setq qq alist)(setq qq (sortcar qq `<)) t)

(do ((alist qq (cdr alist))
     (a '((0)(1)(2)(3)(4)(5)(6)(7)(8)(9)(23)(24))) (x))
    ((null alist) (setq aaa a) t)
    (do ((y (cdr (car alist)) (cddr y)))
	((null y) t)
	(setq en (assoc (car y) a))
	(rplacd en `((,(caar alist) ,(cadr y)) . ,(cdr en)))))))))

(cadr aaa)

(do ((a aaa (cdr a)))
    ((null a) t)
    (terpri)(terpri)(princ "Changes for card number: ")(princ (caar a))
    (terpri)
    (do ((l (reverse (cdr (car a))) (cdr l)))
	((null l) t)
	(princ (car (car l)))
	(tyo 9.)(princ (cadr (car l)))
	(terpri)))))))
(progn
(setq order '(0 1 2 3 4 5 6 7 8 9))

(do ((i 1 (1+ i))
     (wrd ()))
    ((= i 100.) t)
    (setq wrd (value i order))
    (cond ((equal (explode wrd) '(/" /")))
	  (t (terpri) (princ i)(tyo 9)(princ wrd))))
)